﻿Imports Entidades
Imports CallLogicDAO
Partial Class NuevoCliente
    Inherits System.Web.UI.Page
    Dim objCliBE As New Entidades.Cliente
    Dim objCliBL As New CallLogicDAO.ClienteBL
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        With objCliBE
            .Dni = TextBoxDNI.Text
            .Nombre = TextBoxNombres.Text
            .Apellido = TextBoxApellidos.Text
            .Direccion = TextBoxDireccion.Text
            .Telefono = TextBoxTelefono.Text
            .Estado = TextBoxEstado.Text
            .Email = TextBoxEmail.Text
            .Password = ContrasenaTextBox.Text
            .Distrito = ddlDistrito.SelectedValue

        End With
        MsgBox(objCliBL.Registrar(objCliBE), MsgBoxStyle.OkOnly, "Resultado")
    End Sub

    Protected Sub LinkButtonSalir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButtonSalir.Click
        Response.Redirect("Logeo.aspx")
    End Sub
End Class
